What PC? 1996 August/WPCAUG96.ISO/mgiwaug.dxr/00011_MGINoiseMove, MGIPosterHighLight.ls

Text File | 1996-06-14 | 12.5 KB | 304 lines

on MGINoiseMove
  global MGIIntroCounter, MGINoiseSprite, MGILogoSprite, MGIFoodPosterSprite, MGIFindTV, MGIMasterList, MGILastPosterSprite, MGIInternetTextList, MGIWhichHomeMacList, MGIWhichHomePCList, MGIGETCount, MGISTONEON
  if MGISTONEON = 0 then
    if the mouseUp and (MGIFindTV = 2) then
      set MGIFindTV to 3
    end if
    if rollOver(MGILogoSprite) then
      set the castNum of sprite MGINoiseSprite to 59
      if MGIFindTV = 1 then
        set the castNum of sprite getAt(getAt(MGIInternetTextList, 1), 1) to getAt(getAt(MGIInternetTextList, 1), 8)
        set the locH of sprite getAt(getAt(MGIInternetTextList, 1), 1) to getAt(getAt(MGIInternetTextList, 1), 3)
        set the locV of sprite getAt(getAt(MGIInternetTextList, 1), 1) to getAt(getAt(MGIInternetTextList, 1), 4)
        set the ink of sprite getAt(getAt(MGIInternetTextList, 1), 1) to getAt(getAt(MGIInternetTextList, 1), 5)
        set the locH of sprite 28 to 2000
        set the locH of sprite 29 to 2000
        set the ink of sprite MGINoiseSprite to 36
        set the castNum of sprite 47 to the castNum of sprite 47 - 1
        updateStage()
        MGISpinE()
        set the locH of sprite 2 to the mouseH
        set the locV of sprite 2 to the mouseV
      end if
      repeat while rollOver(MGILogoSprite) or rollOver(getAt(getAt(MGIInternetTextList, 1), 1))
        MGISpinE()
        if MGIFindTV = 1 then
          repeat while MGIFindTV = 1
            MGISpinE()
            set the locH of sprite 2 to the mouseH
            set the locV of sprite 2 to the mouseV
            if the mouseDown then
              cursor(200)
              set the locH of sprite 34 to 2000
              set the locH of sprite 2 to 2000
              updateStage()
              repeat with d = MGIFoodPosterSprite to MGILastPosterSprite
                MGISpinE()
                set g to d - MGIFoodPosterSprite + 1
                set the castNum of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 8)
                set the locH of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 3)
                set the locV of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 4)
                set the ink of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 5)
                updateStage()
                set the locV of sprite d to 550
                repeat while the locV of sprite d > (407 + 15)
                  set the locV of sprite d to the locV of sprite d - 15
                  MGISpinE()
                  updateStage()
                end repeat
                set the locV of sprite d to 407
                updateStage()
                set the locH of sprite getAt(getAt(MGIInternetTextList, g), 1) to 2000
                wait(1)
              end repeat
              repeat with t = 1 to count(MGIMasterList)
                if count(getAt(MGIMasterList, t)) > 2 then
                  if getAt(getAt(MGIMasterList, t), 5) = 39 then
                    set the ink of sprite getAt(getAt(MGIMasterList, t), 1) to 36
                    setAt(getAt(MGIMasterList, t), 5, 36)
                  end if
                end if
              end repeat
              set the ink of sprite 1 to 36
              repeat with x = 39 to 47
                set the ink of sprite x to 36
              end repeat
              cursor(-1)
              set the locH of sprite 34 to 560
              updateStage()
              set MGIFindTV to 2
              cursor(-1)
            end if
          end repeat
        else
          if (MGIFindTV = 3) and the mouseDown then
            cursor(200)
            set MGIIntroCounter to 0
            repeat with d = MGIFoodPosterSprite to MGILastPosterSprite
              set g to d - MGIFoodPosterSprite + 1
              set the castNum of sprite MGINoiseSprite to getAt(getAt(MGIInternetTextList, g), 6)
              set the castNum of sprite d to the castNum of sprite d + 1
              set the castNum of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 2)
              set the locH of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 3)
              set the locV of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 4)
              set the ink of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 5)
              updateStage()
              repeat with t = 1 to 30
                MGISpinE()
                if MGIIntroCounter = 3 then
                  set MGIIntroCounter to 0
                  set the castNum of sprite MGINoiseSprite to the castNum of sprite MGINoiseSprite - 3
                  updateStage()
                  next repeat
                end if
                set MGIIntroCounter to 1 + MGIIntroCounter
                set the castNum of sprite MGINoiseSprite to the castNum of sprite MGINoiseSprite + 1
                updateStage()
              end repeat
              set the castNum of sprite d to the castNum of sprite d - 1
              set the locH of sprite getAt(getAt(MGIInternetTextList, g), 1) to 2000
              set the castNum of sprite MGINoiseSprite to 58
              set MGIIntroCounter to 0
              updateStage()
            end repeat
            cursor(-1)
          end if
        end if
        if MGIIntroCounter = 3 then
          set MGIIntroCounter to 0
          set the castNum of sprite MGINoiseSprite to 59
          updateStage()
          next repeat
        end if
        set MGIIntroCounter to 1 + MGIIntroCounter
        set the castNum of sprite MGINoiseSprite to the castNum of sprite MGINoiseSprite + 1
        updateStage()
      end repeat
      if MGIFindTV = 1 then
        set the ink of sprite MGINoiseSprite to 39
        set the castNum of sprite 47 to the castNum of sprite 47 + 1
        set the locH of sprite getAt(getAt(MGIInternetTextList, 1), 1) to 2000
        MGISpinE()
        set the locH of sprite 2 to the mouseH
        set the locV of sprite 2 to the mouseV
      end if
    end if
    if not rollOver(MGILogoSprite) then
      set the castNum of sprite MGINoiseSprite to 58
      set MGIIntroCounter to 0
      updateStage()
    end if
  end if
end

on MGIPosterHighLight
  global MGIFoodPosterSprite, MGILastPosterSprite, MGINoiseSprite, MGIIntroCounter, MGIInternetTextList, MGILaunchI, IFLCanChange, MGISTONEON
  if MGISTONEON = 0 then
    if MGILaunchI = 0 then
      repeat with d = MGIFoodPosterSprite to MGILastPosterSprite
        if rollOver(d) and not rollOver(34) then
          set g to d - MGIFoodPosterSprite + 1
          set the castNum of sprite MGINoiseSprite to getAt(getAt(MGIInternetTextList, g), 6)
          set the castNum of sprite d to the castNum of sprite d + 1
          set the castNum of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 2)
          set the locH of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 3)
          set the locV of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 4)
          set the ink of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 5)
          updateStage()
          repeat while rollOver(d)
            if rollOver(33) then
              exit repeat
            end if
            if the mouseDown then
              set MGILaunchI to g
              exit repeat
            end if
            MGISpinE()
            if MGIIntroCounter = 3 then
              set MGIIntroCounter to 0
              set the castNum of sprite MGINoiseSprite to the castNum of sprite MGINoiseSprite - 3
              updateStage()
              next repeat
            end if
            set MGIIntroCounter to 1 + MGIIntroCounter
            set the castNum of sprite MGINoiseSprite to the castNum of sprite MGINoiseSprite + 1
            updateStage()
          end repeat
          set the castNum of sprite d to the castNum of sprite d - 1
          set the locH of sprite getAt(getAt(MGIInternetTextList, g), 1) to 2000
          set the castNum of sprite MGINoiseSprite to 58
          set MGIIntroCounter to 0
          updateStage()
        end if
        if MGILaunchI <> 0 then
          exit repeat
        end if
      end repeat
    end if
    if MGILaunchI <> 0 then
      set MGILaunchI to 0
      set IFLCanChange to 0
      if the machineType < 200 then
        set the locH of sprite 48 to 2000
        set the castNum of sprite 36 to 157
        set the locH of sprite 36 to 70
        set the locV of sprite 36 to 166
        set ARTNETUP to 0
        updateStage()
        repeat while 1
          if ARTNETUP = 1 then
            if word the mouseWord of field 157 = "YES" then
              set ARTThisword to the mouseWord
              set the foreColor of word ARTThisword of field 157 to 0
              repeat while word the mouseWord of field 157 = "YES"
                if the mouseDown then
                  set ARTYesOrCancel to 1
                  exit repeat
                end if
              end repeat
              set the foreColor of word ARTThisword of field 157 to 255
            end if
            if word the mouseWord of field 157 = "NO" then
              set ARTThisword to the mouseWord
              set the foreColor of word ARTThisword of field 157 to 0
              repeat while word the mouseWord of field 157 = "NO"
                if the mouseDown then
                  set ARTYesOrCancel to 2
                  exit repeat
                  updateStage()
                end if
              end repeat
              set the foreColor of word ARTThisword of field 157 to 255
            end if
            if ARTYesOrCancel > 0 then
              exit repeat
            else
              if (the mouseCast <> 157) and the mouseDown then
                beep()
              end if
            end if
            next repeat
          end if
          if the mouseUp then
            set ARTNETUP to 1
          end if
        end repeat
        set ARTNETUP to 0
        if ARTYesOrCancel = 2 then
          set the locH of sprite 36 to 2000
          updateStage()
          repeat while the mouseDown
          end repeat
        else
          set the castNum of sprite 36 to 155
          set the locH of sprite 36 to 70
          set the locV of sprite 36 to 195
          updateStage()
          repeat while the mouseDown
          end repeat
        end if
      else
        set the locH of sprite 48 to 2000
        set the castNum of sprite 36 to 157
        set the locH of sprite 36 to 70
        set the locV of sprite 36 to 166
        set ARTNETUP to 0
        updateStage()
        repeat while 1
          if ARTNETUP = 1 then
            if word the mouseWord of field 157 = "YES" then
              set ARTThisword to the mouseWord
              set the foreColor of word ARTThisword of field 157 to 0
              repeat while word the mouseWord of field 157 = "YES"
                if the mouseDown then
                  set ARTYesOrCancel to 1
                  exit repeat
                end if
              end repeat
              set the foreColor of word ARTThisword of field 157 to 255
            end if
            if word the mouseWord of field 157 = "NO" then
              set ARTThisword to the mouseWord
              set the foreColor of word ARTThisword of field 157 to 0
              repeat while word the mouseWord of field 157 = "NO"
                if the mouseDown then
                  set ARTYesOrCancel to 2
                  exit repeat
                  updateStage()
                end if
              end repeat
              set the foreColor of word ARTThisword of field 157 to 255
            end if
            if ARTYesOrCancel > 0 then
              exit repeat
            else
              if (the mouseCast <> 157) and the mouseDown then
                beep()
              end if
            end if
            next repeat
          end if
          if the mouseUp then
            set ARTNETUP to 1
          end if
        end repeat
        set ARTNETUP to 0
        if ARTYesOrCancel = 2 then
          set the locH of sprite 36 to 2000
          updateStage()
          repeat while the mouseDown
          end repeat
        else
          set the castNum of sprite 36 to 155
          set the locH of sprite 36 to 70
          set the locV of sprite 36 to 195
          updateStage()
          repeat while the mouseDown
          end repeat
          StartBrowser("html/room/index.htm")
        end if
      end if
    end if
  end if
end